home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / mtxii < prev    next >
Internet Message Format  |  1995-03-31  |  4KB
  1. Path: seq!ecsgate!mcnc!uvaarpa!caen!zaphod.mps.ohio-state.edu!wupost!uunet!mcsun!unido!mcshh!mwhh!detlef
  2. From: detlef@mwhh.hanse.de (Detlef Mueller)
  3. Newsgroups: comp.sys.hp48
  4. Subject: Symbolic matrix library
  5. Keywords: hp48 math matrix symbolic
  6. Message-ID: <1991Dec16.073237.13646@mwhh.hanse.de>
  7. Date: 16 Dec 91 06:32:37 GMT
  8. Organization: M. Witt
  9. Lines: 112
  10.  
  11. Hi.
  12.  
  13. I post this article for a friend of mine who has no news access. Please
  14. reply to him, not to me, if there are any questions/comments about the
  15. software.
  16.  
  17. Bye,
  18.     8-),Detlef
  19. -----------------------------------------------------------------------------
  20.  
  21.  
  22.         SYMBOLIC MATRIX LIBRARY
  23.  
  24.  
  25.  
  26. hello, here is a library wrote in internals
  27. it works with list of list :
  28.  
  29.  
  30.     { { a b }
  31.        { c d } }
  32.  
  33. here is a summary of what it does
  34.  
  35.     DNN     determinamt
  36.  
  37.     ADJ    adjoint
  38.  
  39.     MNN    solve s linear system as 
  40.         2 : { d ... f }
  41.            1 : { { a ... b }{...}{ c ... d } }
  42.  
  43.     MNI    inverse
  44.  
  45.     CDN     constant multiplies the iddentity matrix k.I
  46.         2 : A
  47.         1 : 3
  48.  
  49.     ADD     +
  50.  
  51.     MLT    *
  52.  
  53.     SUB    -
  54.  
  55.     TRAN    transpose
  56.  
  57.     ATL     array to list [[][][]]
  58.  
  59.     LTA    list to array {{}{}{}}
  60.  
  61.     TOSTACK explode the list of list on the stack
  62.  
  63.  
  64. have fun and email me for any comments and improvement
  65.  
  66. at            dehon@platon.greco-prog.fr
  67.  
  68.  
  69.  
  70.             Romain Desplats
  71.  
  72. begin 644 mtxii.lib
  73. M2%!(4#0X+45 *R#B  9-871R:7@&]=/-    0,< # " ]<, G2T0D0+U Y!P
  74. M!RLQ@/73 )TM(.D"];, K _FWAJL#^;>&B,RD- :*S& ]>, G2T03"-M+A#@
  75. MYF$CB#&0_P-M+A#@YN #(5@P(@.(,;!G!6TN$.#VW@,C,A""!6>KX5\C*S& 
  76. M];, G2T03"-M+A 0YF$C;2X0$+9G!=MST.8" 6$A<L"Y8H@K1C,'_C6R$@-8
  77. M/P_0V0*_C1%,(VTN$!#6Y@(!8FTN$.#F82-M+A 0MF<%VW/0Y@(!82%R\-L8
  78. M;2X0$!8B!YPKUN8" 6YM+A @%B('G"M&4ATDU7'I!FTN$!!VT@<T<]#F @%A
  79. M_C6R$@-8/Q#0V0*(,;!G!<$TTN8" 4YM+A 0U.8" 5,>-M+F @%3VW/0Y@(!
  80. M02%RP+EB;2X0X"3I O7C #1ST.8" 5-95.!?(RLQ@/6C )TM4*H8KU003"-M
  81. M+A @Y6$CB#&@HQQM+A @]=L8(S*0&V-M+A @-35A="JP$@-M+A @M3T'9ZM!
  82. M,P>O5# O84#0X5\C*S& ]9, G2U0JABKT/%*!40RH,X8="JP$@/!--+F @%#
  83. M;2X0P.1A(^J,L3T'="JP$@-M+A PM#T'DZQ!,P=M+A# ]$H%[SV01067;M#F
  84. M @%,)WU ,P=M+A# Y%\C*S& ]8, G2V & -[5D K*L$TTN8" 6UM+A @U^8"
  85. M 6,>-M+F @%M^3_ N6(ZRG'I!FTN$#!VT@?)HM+F @%CH#'2Y@(!;G0JL!(#
  86. M;2X0(+<]!VTN$- 6(@><*];F @%NF-AQMAHT<\ D(VTN$# V>!S^-9)C(RLQ
  87. M@/5S )TM *@8A_N!FQR&H]*['Y(N4#\$T+L?DBY0/P8@Z0+U4P K,8#U8P"=
  88. M+0"H&,$TTN8" 4%M+A @Y&$C;2X0$*2C'&TN$""DHQQM+A @E"PJF-BAHQS!
  89. M--+F @%,;2X0,-3F @%2'C:2+"IM+A# !!HC;2X0D-3F @%!;2X0D(2)'<$T
  90. MTN8" DQ)'C:2+"IM+A @!1HC;2X0H$0K*LFBTN8" 4.@,=+F @%+;2X@P)34
  91. MY@(!2YC8T>8" 4)M+A"PA(D=;2X0H(2)'>ZM<;8:3#+")"-M+A @-7@<_C7"
  92. M)"-M+A# -'@<_C7B7R,K,8#U4P"=+0"H&,$TTN8" 4%M+A @Y&$CR:+2Y@(!
  93. M03K* 1HC;2X0($6G BLQT.8" 4')HH*)'7M6L#T';2X0$-3F @%2F-@1(@><
  94. M*];F @%";2X0((6)'2%RP+EB9ZMQMAHT<\ D(VTN$!"T9P595.!?(RLQ@/5#
  95. M )TM4*H8ZHP13"-M+A 0U.8" 4X>-M+F @%.VW,0(@?!--+F @%2'C9"IP(K
  96. M,=#F @%.VW/0Y@(!4B%R<+D#V!K6Y@(!0;2B<K8:-'/@7R,T<]#F @%.653@
  97. M7R,K,8#U,P"=+5"J&"PJD ( 35XM,3U!1$HH32DO1$54*$TI\Z*R"A2(,2#I
  98. M O4# ",R(.D"]1, *S& ]2, G2T J!B2+E _ $"G BLQ$$PC;2X0(-;F @%A
  99. M;2X00-3F @%3'C;2Y@(!87M6L#T';2X0,-7F @%A;2X0(!8B!Y(N4#\/(.D"
  100. M]0, ;2X00%3P&F>K<>D&;2X0,'72!S1ST.8" 5/^-;(2 U@_ =#9 J6*@1@#
  101. M>U803"-M+A 0U.8" 5,>-M+F @%3VW,0(@?!--+F @%8'C9"IP(K,=#F @%3
  102. MVW/0Y@(!6&TN$! 4(@>2+E _#B#I O4# 9(N4#\ 8#@J;2X0@!4B![P]\-L8
  103. M)+'AWAIGJT$S!_XU0C,';2X0,)5%!?XULA(#6#\ T-D"I8J!& -[5A!,(VTN
  104. M$!#6Y@(!<QXVTN8" 7/Y/Y#1 ]@:UMD";2X0$(:X8H@KMA(#G2W0Y@(!<P- 
  105. M$.MCG2U *RIM+A PMST'(7(03"-M+A#@Y&$CWJ+2Y@(!<[^- 1HC;2X0@(6K
  106. M FTN$("%JP)M+A 0MA(#^3\ 9!\K,> [&FTN$. DZ0+UXP!,,M+F @%S#CZ0
  107. M106(,;!G!0- $.MCDBY0/P @Z0+UTP!M+A 0EO\#G"O6Y@(!3IPKYMX:AJ/2
  108. MY@(!3N\]\-L8)+'AWAIGJ^%?(S1SL!(#G2W0Y@(!89(N4#\-L!(#*S'@7R,K
  109. M,>"D EH 0.'_#_W_PO^\^U^O_PCZ'X?_'/B_<O]L]C]=_RCT?S7_<O-_.O]M
  110. M](]2_TXJ0!(       !+ $ +        L@                          
  111. M     ), ,$#DY 0  T%$2@$PT.3D)  #34Y) S P1.1$  -!1$0%,-#$1&4 
  112. M W-U8@<P$$3%E  #3%1!"D! )17DA  '5$]35$%#2PO@" "( " ( 'P 8 < 
  113. 4< "@!@!D ( $ &, T 4 2@  W0_D
  114.  
  115. end
  116.  
  117. -- 
  118. +-----------------------------------+---------------------------------------+
  119. |       `You mean this isn't        |             Detlef Mueller            |
  120. |          the afterlife ?`         |          detlef@mwhh.hanse.de         |
  121. | Arthur in THGTTG, part II, p. 78  |...!uunet!mcsun!unido!mcshh!mwhh!detlef|
  122. +-----------------------------------+---------------------------------------+
  123.